Gigarom 4/Mac Giga-ROM 4.0 - 1993.toast/FILES/HYP/R-S/Script Extractor/background_2634.txt

Text File | 1989-04-13 | 4.0 KB | 182 lines

-- background: 2634 from stack: in
-- bmap block id: 3662
-- flags: 4000
-- background id: 0
-- name:


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=389 top=310 right=333 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual wipe right
  go prev
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=419 top=310 right=333 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual wipe left
  go next
end mouseUp



-- part 18 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=4 top=10 right=303 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Script


-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=167 top=314 right=331 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reformat
----- HyperTalk script -----
on mouseUp
  if char 1 of line 2 of field 1 is "-" then
    answer "This script has already been reformatted!"
    exit mouseUp
  end if
  answer "Do you want to format this script?" with no or yes
  if it is "no"
  then exit mouseUp
else
  set lockScreen to true
  set cursor to 4
  put field 1 into temp
  put "Reformatting; long scripts take a good bit of time."
  -- 557 lines took 8 minutes!!
  set the lockScreen to true
  set the cursor to 4
  if line 1 of temp is empty then delete line 1 of temp
  put the number of lines in temp into k
  put 1 into l
  repeat
    if the number of words in line l of temp <1 then
      delete line l of temp
      put l - 1 into l
      put k - 1 into k
    end if
    put l + 1 into l
    if char 1 of line l of temp is "o" or char 1 of line l of temp is "•" or char 1 of line l of temp is "◊" then
      put "..............." & return before line l of temp
      put l + 1 into l
      put k + 1 into k
    end if
    if char 1 of line l of temp is ">" or char 1 of line l of temp is "*" then
      put "---------------" & return before line l of temp
      put l + 1 into l
      put k + 1 into k
    end if
    if l ‚â• k then exit repeat
  end repeat
  set the cursor to 1
  put temp into field 1
  set the lockScreen to false
  hide msg
end if
end mouseUp


-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=256 top=314 right=331 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Script
----- HyperTalk script -----
on mouseUp
  ask "File name?" with "P."&&short name of this card
  if it is empty then exit mouseUp
  put  it into temp
  open file temp
  write field 1 to file temp
  close file temp
  print temp with "teachText"
end mouseUp


-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=449 top=312 right=335 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual dissolve to white
  go home
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=33 top=314 right=330 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Extract Script
----- HyperTalk script -----
on mouseUp
  exScript
end mouseUp